proc coloursq (win : int, col : int, x : int, y : int)
    Window.SetActive (win)
    Draw.FillOval (((x - 1) * 20) + 10, ((y - 1) * 20) + 10, 10, 10, col)
end coloursq

proc placeturt (win : int, x : int, y : int, rot : int)
    Window.Select(GridWin)
    Pic.ScreenLoad("tutl" + intstr(rot) + ".bmp", ((x - 1) * 20), ((y - 1) * 20), picMerge)
end placeturt
